subroutine log_msg1_indent(nunit,ni,str1)
  use param
  implicit none

  integer,intent(in) :: nunit,ni
  character :: str1*(*)

  integer :: i,n
  character(len=len_linebuf) :: fstr

  fstr=""

  if (ni.gt.0) then

     write(fstr,'("(",i0,"x,a)")') ni

  else if (ni.eq.0) then

     write(fstr,'("(a)")')

  end if

  write(nunit,trim(fstr)) trim(adjustl(str1))

  return

end subroutine log_msg1_indent
